home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-05_1985_Verlag_Heinz_Weise_de.d64 / P A (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  23KB  |  42 lines
  1. 0 poke50257,16:poke198,0:ifpeek(12288)=255then60
  2. 10 poke53280,0:poke53281,0:print"[147][159]   zum saven jetzt ctrl[146] s[146] druecken !":print"   sonst space[146] !"
  3. 40 ifpeek(203)<>60then40
  4. 50 ifpeek(203)=60then50
  5. 55 sys8576:poke46,73:clr
  6. 60 poke50257,20:print"[147]":sys8192:si=54272:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24:dimu$(20):print"[147]"chr$(14)chr$(8);:n=14:gosub120:goto290
  7. 120 fori=1ton:readu$(i):nexti:fork=1ton:forj=1tolen(u$(k)):b$=mid$(u$(k),j,1):printb$;:gosub150:nextj:print:print:nextk:return
  8. 150 ifb$=" "thenreturn
  9. 160 pokel,15:pokea,19:pokeh,0:pokefh,74:pokew,33:forsd=1to10:nextsd:pokew,32:return:data"       [156] [208]aulchen's  [211]chiebung [146]                              ":data" [194]ei diesem [211]piel musst [196]u die beiden":data" [208]aulchen wieder zurueckschieben.      "
  10. 210 data" [200]ierzu bewege den [195]ursor auf das      ":data" zu verschiebende [198]eld und druecke     ":data"  [211][208][193][195][197] [146] oder  [198][197][213][197][210] [146]. [215]enn beide ":data" [208]aulchen wieder richtig sind,kann noch"
  11. 250 data" mal das gleiche [194]ild abgerufen werden.":data" [218].[194]. fuer mehrere [211]pieler.            ":data" [196]ie [212]asten sind  [193] [146], [218] [146], , [146], . [146] ! ":data" oder [202]oystick [208]ort 2 .":data" [196]as [205]ischen wird mit  [211][208][193][195][197] [146] gestartet"
  12. 286 data" und auch wieder gestoppt.             ":data"             [214]iel [211]pass!               "
  13. 290 print"           [159] [196]ruecke [211][208][193][195][197]":wait203,64,64:print"[147]"chr$(142):dimv(18,3):fori=0to18:forj=0to3:readv(i,j):next:next:data1,5,1,5,-1,5,1,5,-1,5,1,5,-1,5,-1,5,,,,:data-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,
  14. 360 data-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,:data-5,1,-5,1,-1,-5,1,-5,-1,1,-5,-5,-1,-5,-1,-5:v=53248:fori=0to63:reada:poke896+i,a:next:data0,0,0,0,0,0,120,0,60,132,0,66:data148,198,89,73,199,38,46,56,232
  15. 430 data66,238,132,129,239,2,128,68,2:data128,254,2,65,125,4,62,56,248,3:data147,128,14,16,252,57,239,27,80:data130,4,160,68,2,0,56,0,0,0,0,0:data0,0,173:pokev+29,255:poke53265,27:dima$(15):r$="[157][157][157][157][157][157][157][157][157]"
  16. 520 a$(0)="        b"+r$+"  _^!\#$b"+r$+"jk@lmnopq"+r$+"[214][215][216][217][218][219][220][221][255]":a$(0)=a$(0)+r$+"    [178][179]@@e"+r$+"aaaa@[146]dda[146]f":a$(1)="        b"+r$+"     %&'b"+r$+";<=>?[192][193][194][195]"+r$+"@@@@[223][160][161][162][163]"
  17. 550 a$(1)=a$(1)+r$+"@@@@[180][181][182][183][184]"+r$+"ddddbcdef":a$(2)="        b"+r$+" ()*+   b"+r$+"[196][197][198][199][200][201][202][203][204]"+r$+"[164][165][166][167][168]@@@e"+r$:a$(2)=a$(2)+"@[185][186][187][188]@@@e"+r$+"ghij[146]dkl[146]df":a$(3)="        b"+r$+" ,-./ghib"+r$+"[205][206][207][208][209][210][211][212][213]"+r$+"[169][170][171][172][173][174][175][176][177]"+r$
  18. 590 a$(3)=a$(3)+"@@@[189][190][191]  b"+r$+"dm[146]ddno[146]aac":a$(4)="    pqrst[146]"+r$+"      *+,[146]"+r$+"   >?[192][193][194][195][146]"+r$:a$(4)=a$(4)+"  [217][218][219][220][221][255][223][146]"+r$+"   [176][177][178][179][146] b"+r$+"aaaaaaaac":a$(5)="uvwxyz[\[146]e"+r$+"-./01[146]@@23[146]"+r$+"[196][197][198][199][200][146]@[201][202][203]"+r$
  19. 640 a$(5)=a$(5)+"[160][161][146]  [162][163][164][146]@e"+r$+"      [180][181][182][146]"+r$+"aaaaaaaac":a$(6)="@]^_ ![146]]#$[146]"+r$+"45[146]@@6789:[146]"+r$+"[204][205][206][146]@[207][208][209][210][211][146]"+r$:a$(6)=a$(6)+"@@[165][166][167][146]  [168][169][146]"+r$+"[183][184][185][186][146]    b"+r$+"aaaaaaaac"
  20. 670 a$(7)="%&'()[146]   b"+r$+";<=[146]     b"+r$+"[212][213][214][215][216][146]   b"+r$:a$(7)=a$(7)+"[170][171][172][173][146] [174][175][146] b"+r$+"  [187][188][189][190][146]  b"+r$+"aaaaaaaac":fori=0to7:a$(i+8)="[153]"+a$(i):next:fori=0to7:a$(i)="[151]"+a$(i):next
  21. 710 a$(15)="[129]@@@@@@@@e"+r$+"@@@@@@@@e"+r$+"@@@@@@@@e"+r$+"@@@@@@@@e"+r$:a$(15)=a$(15)+"@@@@@@@@e"+r$+"ddddddddf":dimp$(18):p1$="":p2$="":p$(0)="nn":p$(1)=p$(0)+p1$
  22. 760 p$(2)=p$(1)+p1$:p$(3)=p$(2)+p1$:p$(5)=p$(0)+p2$:p$(6)=p$(5)+p1$:p$(7)=p$(6)+p1$:p$(8)=p$(7)+p1$:p$(10)=p$(5)+p2$:p$(11)=p$(10)+p1$:p$(12)=p$(11)+p1$:p$(13)=p$(12)+p1$:p$(15)=p$(10)+p2$
  23. 870 p$(16)=p$(15)+p1$:p$(17)=p$(16)+p1$:p$(18)=p$(17)+p1$:dimps(15):dimp2(15):dims(18):sys4*4096:fora=0to12step4:fori=atoa+3:ps(i)=i+c:nexti:c=c+1:nexta
  24. 980 poke53265,11:poke53270,peek(53270)or16:printchr$(147);:poke53281,1:poke53282,0:poke53283,7:printchr$(14):poke53272,29:fori=0to15:print""p$(ps(i))a$(i):nexti:print"";:fori=1to24:print"nn[157][157]";:next:print"nn";:print"[157][157]";:fori=1to24:print"nn[157][157]";:next
  25. 1070 print"[157]bn";:poke2023,14:poke56295,8:poke53281,10:i=0:poke53265,27:sys8656:poke53281,10
  26. 1100 z=int(rnd(0)*4):z=ps(15)+v(ps(15),z):ifps(i)=zthen1100
  27. 1120 fori=0to15:ifps(i)<>zthennext
  28. 1130 pa=ps(i):ps(i)=ps(15):ps(15)=pa:print""p$(pa)a$(15)""p$(ps(i))a$(i):ifpeek(56320)<>111andpeek(203)<>60then1100
  29. 1170 fori=0to15:p2(i)=ps(i):s(ps(i))=i:nexti
  30. 1190 v=53248:poke53272,29:poke2042,14:pokev+41,6:pokev+4,54:pokev+5,68:ti$="000000":z=0:pokev+21,4:print""p$(15)"      tuvw:"ti$"    txy:"z;:poke53265,27
  31. 1240 poke214,24:poke211,14:sys58640:printti$""z;:sys8352:ifpeek(2)then1240
  32. 1260 x=peek(53252):y=peek(53253):sp=int((x-16)/72)+int((y-36)/48)*5:ifps(15)<>sp-5andps(15)<>sp+5andps(15)<>sp+1andps(15)<>sp-1then1240
  33. 1310 z=z+1:h1=ps(15):ps(15)=sp:ps(s(sp))=h1:h2=s(sp):s(sp)=15:s(h1)=h2:printchr$(19)p$(ps(15))a$(15):printchr$(19)p$(h1)a$(h2):c=0:fora=0to12step4:fori=atoa+3:ifps(i)<>i+cthen1240
  34. 1410 nexti:c=c+1:nexta:t=ti:print"[147]":poke53252,250:poke53253,75:poke53270,200:poke56576,151:poke53272,21:poke53281,15:print:print"[129] du hast es geschafft !!!":print:print" du brauchtest"int(t/60)"sekunden ":print:print" und"z"zuege."
  35. 1490 print" nochmal das letzte puzzle ? (l)":print" oder neu mischen          ? (m)"
  36. 1510 geta$:ifa$=""then1510
  37. 1520 ifa$="l"then1550
  38. 1530 ifa$<>"m"then1510
  39. 1540 pokev+21,0:goto980
  40. 1550 poke53265,11:poke53280,0:poke53281,10:poke56325,64:print"[147]":poke53282,0:poke53283,7:printchr$(14):fori=0to15:ps(i)=p2(i):s(ps(i))=i:nexti:poke53272,29:poke53270,216:fori=0to15:print""p$(ps(i))a$(i):nexti:print"";:fori=1to24:print"nn[157][157]";:next:print"nn";
  41. 1670 print"[157][157]";:fori=1to24:print"nn[157][157]";:next:print"[157]bn";:poke2023,14:poke56295,8:goto1190
  42.